2 Figures

2.1 ConcvTime

## 
## CncvTm> data("twoCmt")
## 
## CncvTm> ex1=ConcvTime(datFile = twoCmt,ID = '1',ipredVar = 'IPRED')
## 
## CncvTm> ex2=ConcvTime(datFile = twoCmt,ID = '1',ipredVar = 'IPRED',minorTicks = T)
## Scale for 'x' is already present. Adding another scale for 'x', which
## will replace the existing scale.
## 
## CncvTm> list(ex1,ex2)
## [[1]]
## 
## [[2]]

    2.2 ConcvTimeInd

    ## 
    ## CncvTI> data("twoCmt")
    ## 
    ## CncvTI> twoCmt=twoCmt%>%mutate(DOSE=factor(DOSE))
    ## 
    ## CncvTI> ex1=ConcvTimeInd(datFile = twoCmt)
    ## 
    ## CncvTI> ex2=ConcvTimeInd(datFile = twoCmt,facetBy = 'SEX')
    ## 
    ## CncvTI> list(ex1,ex2)
    ## [[1]]
    ## 
    ## [[2]]

      2.3 ConcvTimeMult

      ## 
      ## CncvTM> data("twoCmt")
      ## 
      ## CncvTM> twoCmt=twoCmt%>%mutate(DOSE=factor(DOSE))
      ## 
      ## CncvTM> ## Not run: ConcvTimeMult(datFile = twoCmt,ipredVar='IPRED')
      ## CncvTM> ex1=ConcvTimeMult(datFile = twoCmt,ipredVar='IPRED',genAll=F,page=1)
      ## 
      ## CncvTM> ex2=ConcvTimeMult(datFile = twoCmt,ipredVar='IPRED',genAll=F,page=2,nrow =5,ncol=4)
      ## 
      ## CncvTM> list(ex1[[1]],ex2[[1]])
      ## [[1]]
      ## [[1]]$pList
      ## [[1]]$pList$`1`
      ## 
      ## 
      ## [[1]]$plotCols
      ## [1] 1
      ## 
      ## [[1]]$plotRows
      ## [1] 1
      ## 
      ## 
      ## [[2]]
      ## [[2]]$pList
      ## [[2]]$pList$`2`
      ## 
      ## 
      ## [[2]]$plotCols
      ## [1] 1
      ## 
      ## [[2]]$plotRows
      ## [1] 1

        2.4 ConcvTimeSum

        ## 
        ## CncvTS> data("twoCmt")
        ## 
        ## CncvTS> twoCmt=twoCmt%>%mutate_each(funs(factor),DOSE,SEX)
        ## 
        ## CncvTS> ConcvTimeSum(datFile = manipDat(twoCmt,groupBy = 'SEX',sumThis = T))

          2.5 GOF

          ## 
          ## GOF> data("twoCmt")
          ## 
          ## GOF> GOF(twoCmt,cwresBy = 'IRES')

            2.6 OBSvIPRED

            ## 
            ## OBSIPR> data("twoCmt")
            ## 
            ## OBSIPR> ex1=OBSvIPRED(twoCmt%>%filter(DV>0),xBy='IPRED')
            ## 
            ## OBSIPR> ex2=OBSvIPRED(twoCmt,xBy='IPRED',xScale = 'identity',markBy = 'SEX')
            ## 
            ## OBSIPR> list(ex1,ex2)
            ## [[1]]
            ## `geom_smooth()` using method = 'gam'
            ## 
            ## [[2]]
            ## `geom_smooth()` using method = 'gam'

              2.7 QQplot

              ## 
              ## QQplot> data("twoCmt")
              ## 
              ## QQplot> ex1=QQplot(twoCmt)
              ## 
              ## QQplot> ex2=QQplot(twoCmt,markBy = 'SEX')
              ## 
              ## QQplot> ex3=QQplot(twoCmt,facetBy = 'DOSE')
              ## 
              ## QQplot> list(ex1,ex2,ex3)
              ## [[1]]
              ## 
              ## [[2]]
              ## 
              ## [[3]]

                2.8 barchartMult

                ## 
                ## brchrM> data("twoCmt")
                ## 
                ## brchrM> ex1=barchartMult(datFile = twoCmt)
                ## 
                ## brchrM> ex2=barchartMult(datFile = twoCmt,catList = list(c('SEX','Gender')))
                ## 
                ## brchrM> ex3=barchartMult(datFile = twoCmt,nrow=2)
                ## 
                ## brchrM> list(ex1,ex2,ex3)
                ## [[1]]
                ## 
                ## [[2]]
                ## 
                ## [[3]]

                  2.9 covCat

                  ## 
                  ## covCat> data("twoCmt")
                  ## 
                  ## covCat> ex1=covCat(twoCmt,catList = list('SEX'),conList = 'IPRED',nCols=1)
                  ## 
                  ## covCat> ex2=covCat(twoCmt,catList = list(list('SEX','Gender'),list('DOSE')),conList = list(list('IPRED'),list('ETA1',expression(eta[1]))))
                  ## 
                  ## covCat> list(ex1,ex2)
                  ## [[1]]
                  ## 
                  ## [[2]]
                  ## notch went outside hinges. Try setting notch=FALSE.
                  ## notch went outside hinges. Try setting notch=FALSE.

                    2.10 covCon

                    ## 
                    ## covCon> data("twoCmt")
                    ## 
                    ## covCon> ex1=covCon(twoCmt,conList_x = 'IPRED',conList_y = 'ETA1',nCol=1)
                    ## 
                    ## covCon> ex2=covCon(twoCmt,
                    ## covCon+ conList_x = list(
                    ## covCon+ list('IPRED','Individual Prediction'),
                    ## covCon+ list('IRES','Individual Residual')
                    ## covCon+ ),
                    ## covCon+ conList_y = list(
                    ## covCon+ list('ETA1',expression(eta[1]))
                    ## covCon+ )
                    ## covCon+ )
                    ## 
                    ## covCon> list(ex1,ex2)
                    ## [[1]]
                    ## 
                    ## [[2]]

                      2.11 distMult

                      ## 
                      ## dstMlt> data("twoCmt")
                      ## 
                      ## dstMlt> ex1=distMult(twoCmt)
                      ## 
                      ## dstMlt> ex2=distMult(twoCmt,order = c("Boxplot","Density","QQ"))
                      ## 
                      ## dstMlt> list(ex1,ex2)
                      ## [[1]]
                      ## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
                      ## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
                      ## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
                      ## 
                      ## [[2]]
                      ## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
                      ## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
                      ## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

                        2.12 ggpairs

                        ## 
                        ## ggpars> data("twoCmt")
                        ## 
                        ## ggpars> ex1=ggpairs(twoCmt,xCols=c('ETA1','ETA2'))
                        ## 
                        ## ggpars> ex2=ggpairs(twoCmt,xCols=c('ETA1','ETA2','ETA5'))
                        ## 
                        ## ggpars> list(ex1,ex2)
                        ## [[1]]
                        ## 
                        ## [[2]]

                          2.13 paramDist

                          ## 
                          ## prmDst> data("twoCmt")
                          ## 
                          ## prmDst> ex1=paramDist(twoCmt)
                          ## 
                          ## prmDst> ex2=paramDist(twoCmt,xCols=c('ETA1','ETA2'),xLab=c(expression(eta[1]),expression(eta[2])))
                          ## 
                          ## prmDst> list(ex1,ex2)
                          ## [[1]]
                          ## 
                          ## [[2]]